home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP17.EXE / POODEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-11  |  1KB  |  43 lines
  1. program poodemo;  {POODEMO.PAS}
  2. uses
  3.   graph,crt, {unité de Turbo Pascal 6}
  4.   poograph;  {unité contenant les objets }
  5.  
  6. const
  7.   pilotes_bgi = 'c:\tp\bgi';  { modifiez cela en fonction}
  8.                                            { de vos besoins           }
  9. var
  10.   pointA       : Point;
  11.   TraitA       : Trait;
  12.   RectangleA   : Rectangl;
  13.   boiteA       : Boite;
  14.   codeErreur, pilote, mode : integer;
  15.  
  16. {------------------------------------------------}
  17. { programme principal                            }
  18. {------------------------------------------------}
  19. Begin
  20.   pilote := detect;
  21.   initgraph (pilote, mode, pilotes_bgi);
  22.   codeErreur := graphresult;
  23.   if codeErreur = 0 then
  24.   begin
  25.     pointA.init (320, 160, 50, 50);
  26.     pointA.tourner;
  27.     TraitA.init (320, 160, 50, 50);
  28.     TraitA.tourner;
  29.     RectangleA.init (320, 160, 50, 50);
  30.     RectangleA.tourner;
  31.     boiteA.init (320, 160, 50, 50, 30, true);
  32.     boiteA.tourner;
  33.   end
  34.   else begin
  35.          write ('Erreur de type graphique');
  36.          readln;
  37.   end;
  38.   closeGraph;
  39.   gotoxy(1,25);
  40.   write('Veuillez appuyer sur <CR>...');
  41.   readln;
  42. end.
  43.